home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #001 (19xx)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #001 (19xx)(Amiga User Group Deutschland e.V.).adf / KickChange / KickChange.bas (.txt) < prev    next >
AmigaBASIC Source Code  |  1986-10-22  |  1KB  |  46 lines
  1. OPEN "R", #1, "KickChange",1
  2. FIELD #1, 1 AS a$
  3. CLS
  4. LOCATE 10,10:PRINT "Einen kleinen Augenblick"
  5. LOCATE 12,10:PRINT "Byte :         von : 140"
  6. LOCATE 13,10:PRINT "Check:         von : 6800"
  7. i%=1
  8. READ b$
  9. WHILE (b$<>"ENDE")
  10.   a=VAL("&h"+b$)
  11.   sum =sum +a
  12.   LSET a$ =CHR$(a)
  13.   PUT #1, i%
  14.   LOCATE 12,17:PRINT i%
  15.   LOCATE 13,17:PRINT sum
  16.   i%=i%+1
  17.   READ b$
  18. WEND
  19. CLOSE #1
  20. IF sum <> 6800 THEN
  21.   KILL "KickChange"
  22.   LOCATE 15,5: PRINT "Fehler in Data !!"
  23. END IF
  24. KILL "KickChange.info"
  25.  
  26. IF sum =6800 THEN 
  27.   LOCATE 15,5:PRINT "KickChange installiert"
  28.   LOCATE 17,5:PRINT "Aufruf vom CLI           :";
  29.               PRINT " 'KickChange'"
  30.   LOCATE 18,5:PRINT "Aufruf von der Workbench :";
  31.   PRINT "Programm-Icon malen und wie ueblich anklicken"
  32. END IF
  33.  
  34. DATA 00,00,03,f3,00,00,00,00,00,00,00,02,00
  35. DATA 00,00,00,00,00,00,01,00,00,00,11,00,00
  36. DATA 00,01,00,00,03,e9,00,00,00,11,20,3c,00
  37. DATA 03,00,00,33,c0,00,df,f1,80,53,80,4a,80
  38. DATA 66,f4,41,f9,00,00,00,26,23,c8,00,00,00
  39. DATA 20,46,fc,27,00,4e,71,4e,71,46,fc,27,00
  40. DATA 41,f9,00,fc,00,00,43,f9,00,f8,00,00,70
  41. DATA 00,4e,70,20,80,4e,d1,00,00,00,00,00,00
  42. DATA 00,00,03,ec,00,00,00,01,00,00,00,00,00
  43. DATA 00,00,14,00,00,00,00,00,00,03,f2,00,00
  44. DATA 03,eb,00,00,00,01,00,00,03,f2,ENDE
  45.                 
  46.